home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / DirOpusCompare / dopuscmp.rexx < prev   
OS/2 REXX Batch file  |  1992-08-08  |  545b  |  34 lines

  1. /* */
  2.  
  3. address 'DOPUS.1'
  4. options results
  5.  
  6. status 3
  7. Window = result
  8.  
  9. status 13 window  /* dir name */
  10. FirstFileDir = result
  11. getnextselected
  12. FirstFileName = result
  13. selectfile FirstFileName 0
  14. displaydir
  15.  
  16. otherwindow
  17.  
  18.  
  19. status 13 1-window  /* dir name */
  20. SecondFileDir = result
  21. getnextselected
  22. SecondFileName = result
  23. selectfile SecondFileName 0
  24. displaydir
  25.  
  26. otherwindow
  27.  
  28.  
  29. ExecuteString = 'M_C:cmp >"con:20/0/600/100/Compare/WAIT/CLOSE/SCREEN DOPUS.1"'||FirstFileDir||FirstFileName||' '||SecondFileDir||SecondFileName
  30.  
  31. address command ExecuteString
  32.  
  33.  
  34.